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° “ 1e-805-1986 TH Me CYC TiCs 231 9 | 

po 00) 0 MODULE PASSREAD_VARYING ( XTITLE "Read @ varying, string’ | 
: ¢ p08 {DENT = '1-002' ' File: PASREAVAR.B32 Edit: SBL1002 ° 
: 4 904 BEGIN : 
: § 0006 } leunteuaennenententneenenerenirentererertnettettentenenenetnetnnennnntnetnens | : 
Py 77 : 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | ; 
4 9 0009 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * : 
: 10 0010 1 is ALL RIGHTS RESERVED. : | : 
° ; ® Py 
; i Bolg 1 !e ae SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ha * . 
: 1 001 1's Y IN ACCORDANCE WITH THE TERMS OF SUCH Tint we —'s Ms, * ; 
3 14 0014 1 ! ON NCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS * . 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ° 
$ 16 0016 1 !* OTH PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; V? Bolg : rc? TRANSFERRED. * : 
3 '® * 3 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
$ $i B04 } :* CORPORATION. * 3 
3 ' * : 
; $¢ $088 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
3 24 Base 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
3 25 0025 1 I * : 
; 26 0026 1 !* * F 
2 eo? 0027 1 Ve R RARER ERE AARERERERARAREREREEEE é 
; 2 0028 1! 3 
; @& 0029 1 ; 
> » 0030 1 !4+ 3 
. 0031 1 ! FACILITY: Pascal Language Support 3 
7s OO3¢ 1! 3 
; = 0033 1 ! ABSTRACT: 3 
; * 0034 1! 3 
3 * 39 0035 1! This module contains procedures which read a varying string 3 
: 36 oo 6 : from a textfile or a string. : 
; $ sited ’ ENVIRONMENT: User mode - AST reentrant ; 
i 40 0040 1 i AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 ; 
: 4g 0042 1 i MODIFIED BY: : 
ch) & 0043 1! : 
: «44 0044 1 ! 1-001 - Original. SBL 1-April-1981 : 
: 65 0045 1 ! 1-002 - Use PASSSEND READ. SBL 26-May-1982 3 
: 46 0046 1 !-- : 
3 47 0047 1 : 


+ 
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PASSREAD_VARYIN Read a varying string 1-Se 1984 02:04: AX-11 Bliss-32 V4.0-74 P 
1-002 Declarations 12786-1382 95:04:83 PASRTL.SRCIPASREAVAR.B esi a (25 
; 69 048 1 XSBITL ‘Declarations’ 
: 29 a045 i PROLOGUE DEFINITIONS 
: 26 Spee - % 
:. 3 0028 1 
: 2 B038 } REQUIRE 'RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
4 2$ og i i TABLE OF CONTENTS 
; 3 ois 1! 
; 0121 1 
; 60 bis¢ 1 FORWARD ROUTINE 
; 8 01 1 PASSREAD_VARYING: NOVALUE ' Read from textfile 
> 62 0124 1 PASSREADV_VARYING: NOVALUE; i Read from string 
; 6 0125 1 
: 64 bis$ 1! 
3 65 0127 1 ! MACROS: 
: 666 0128 1! 
s 7 O1¢2 1! NONE 
: re ora i i EQUATED SYMBOLS 
ee 0136 1! 
: 71 013 7 | NONE 
eo ae 0134 1! 
; 73 0135 1 ! FIELDS: 
3; 676 0136 1! 
;. ££ 0137 1! NONE 
; 0138 #1! 
3 77 0139 1 ! OWN STORAGE: 
; re 0140 1! 
$ 79 0141 1! NONE 
: 80 0142 1! 
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PASSREAD_VARYIN Read a varying strin 16-Sep-1984 02:04: AX-11 Bliss-32 V4.0- 
1-002 PASSREAD_VARYING = Read a@ varying string from t 132800= 138s 93:04:88 PASRTL. Re} 

8 

8 8 GLOBAL ROUTINE PASSREAD_VARYING ( 

84 0 STRING: REF VECTOR C, WORD] ! String to read into 

85 0 PFV: REF SPAS$PFV_FILE_VARIABLE, i File variable 

86 0 MAX_LENGTH: WORD, ! Maximum string Length 

87 0 ERROR ! Error unwind address 

88 0 ) : NOVALUE = 

89 0 

90 0 + 

4! 8 FUNCTIONAL DESCRIPTION: 

9 0 This function READs a varying String from the specified textfile. 

94 0 Up to MAX_LENGTH characters, or until end-of-line, whichever comes 

95 0 first, will be read. The number of characters read is stored in 

38 5 the first word of the string. 

98 CALLING SEQUENCE: 


STRING.wvt.v = PASSREAD_VARYING (PFV.mr.r, MAX_LENGTH.rwu.v 
C, ERROR. ja.r]) 


FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. 

MAX_LENGTH - The maximum length of the string. 

ERROR - Optional. If specified, the address to unwind to 


in case of an error. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
STRING - The varying string read returned as a function value. 
In accordance with the VAX Procedure Calling Standard, 
the address of the string is ppsses to this procedure 


as the first parameter, and 


l other parameters are 
shifted left one position. 


If an error occurs and is continued by a user handler, 
the value returned is a zero-length string. 


SSONONE WOOD NANE WN BODO VMEFWN—O 


SIDE EFFECTS: 

If the f is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERROR: 

NONE 
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ZSBTTL "PASSREAD_VARYING = Read a varying string from textfile’ 
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PASSREAD_V RYING - Read a varying string from t 1 300-1 $8e 93:94:83 PASRTL. RESPASREAVAR B52: 1 — (3) 


BEGIN 


OCAL 
CHARS_REMAINING ! Number of characters remaining in Line 
FCB: REF $PASS$FCB_CONTROL_BLOCK,! File Control block 
PFV_ADDR: VOLATILE, ' Enable argument 
UNWIND_ACT: VOLATILE, ' Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 
| 
} 


BUILTIN 
ACTUALCOUNT; ! Count of arguments 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


1+ 
Get ERROR parameter, if present. 


IF ACTUALCOUNT () GEQU 4 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVI]; FCB); 
'¢ 
Set unwind action to unlock file. 


Pee Se Se Se Se Ge Ge Se Se Se Se SF Se Se Se Be SESH Se SH Se we SHS Se Ss Se Se Se Se See Se Se teas 


UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 


1+ 
Do common initialization. 


WN] 9S OONAUS WN OODNAUESWN (OO OONAUES WN "OO OONAUSW OD” 


PASSSINIT_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 


'¢ 
Determine number of characters remaining in Line. 


a ec ee ee ae ee ee ee ae me me ee ee ee a ee ae De ee ee ee ee ee ed ed ed ed ed 


5 
: 
) "validate PFV and get PFV. 
: 
5 
; 


7 
4 CHARS_REMAINING = .FCB CFCBSA_RECORD_END] - .FCB CFCBSA_RECORD_CUR); 
91 '¢ 
4 ! Select smaller of MAX_LENGTH and CHARS_REMAINING for number of 
e7 characters to move. 
95 : 


| B 15 
PASSREAD_VARYIN i =tepe £04: ~ 3 
PASSREAD. string 16-Sep-1984 06:04:32 VAX-11 B 32 V4.0 Page 5 


arkary Liss 0-74 
READ_VARYING = Read a varying string from t 14-Sep-1984 CPASRTL.SRCJPASREAVAR.B32; 1 (3) 
CHARS_REMAINING = MINU (.CHARS_REMAINING, .MAX_LENGTH); 


1+ 
Move characters to user variable and update record pointer. 


mo 
oc 


CHSMOVE (.CHARS_ REMAINING, .F 
FCB CFCBSA_RECORD_CUR] = .FCB 
+ 

Set current string length. 


ce F CBSA STRING [1)); 


C RECORD CUR. 
FCBSA_RECORD_COR} + .CHARS_REMAINING; 


STRING CO] = .CHARS_REMAINING; | 
\4 

Do end-of-READ processing. | 
PASSSEND_READ (PFV CPFVSR_PFVJ], FCB CFCBSR_FCBI); 
RETURN; 
END; ! End of routine PASSREAD_VARYING | 
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LE PASSREAD_VARYING Read a varying string 
\1-002\ 


-EXTRN PAS$READ_VARYING 

~EXTRN PASSREADY VARY ING 

a ATE_PFV 

-EXTRN PASS$S$INIT_READ, PASSSEND_READ 

-PSECT _PASSCODE,NOWRT, SHR, PIC,2 

-ENTRY PASSREAD_VARY ING. Save R2,R3,R4,R5,R6,R7,R8 


C ERROR_ADDR 
CLRO UNWIND ACT 


3$, (FP) 
(AP), #4 
¥ ERROR, ERROR_ADDR 
1$: MOVL PEV, PFV_ADDR 
JSB PAS$SVALIDATE_PFV 
1, UNWIND_ACT 
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08 


04 
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PFV, R6 

PASSSINIT READ 

-20(FCB),-16(FCB), CHARS_REMAINING 
r CHARS REMAINING, RO 

CMPZ2V #0, #16, MAX_LENGTH, RO 


MAX_LENGTH, RO 
23: MOVL RO, ~CHARS_REMAINING 
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1-002 PASSREAD VARYING = Read a a varying string from t 14-Sep-1984 12:51: PASRTL.SRC PASREAVAR. 5 2;1 (3). 
58 046 AC b0e0 MOVL STR 3; 0263. 
02 As EC B7 6 091 MOVC3 Shans “RERAINING, a-20(FC 8), 2(R8) : 
EC A? 6 CO 00057 ADDL2 CHARS-REMAINI -20(FCB ; 0264. 
68 6 BO 00058 MOVW CHARS REMAINING. (RB) : 0270) 
56 08 AC 00 0005 MOVL PFV, R6 : 0276. 
000000006 00 16 9006 JSB PASSSEND_READ ; 
04 0006 RET ; 0280. 
(000 00069 3$ .WORD Save nothing : 0203) 
50 08 AC 00 00068 MOVL © BAP), RO : | 
50 04 AO DO 0006F MOVL 4(RO), RO : 
F4 AO 9F 00073 PUSHAB ERROR_ADDR : | 
F8 AO SF 00076 PUSHAB UNWINDB_ACT ; 
FC AO 9F 90079 PUSHAB PFV_ADBR ; 
03 odd 9007C PUSHL 3 : 
5E DD OOO7E PUSHL F | 
7E 04 AC 7D 00080 MOVQ 4(AP), =(SP) : | 
000000006 00 03 FB 00084 CALLS #3, PAS$$IO_HANDLER : 
04 00088 RET : 


; Routine Size: 140 bytes, Routine Base: _PASS$CODE + 0000 


. 4% 
2 1 !<BLF/PAGE> 
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ZSBTTL "PASSREADV_VARYING= Read varying from string’ 
GLOBAL ROUTINE PASSREADV_VARYING ( 
STRING: REF VECTOR C, BYTE) 
LINE_DSC: REF VECTOR C, BYTE), 
MAX_CENGTH: WORD, 
ERROR 
) : NOVALUE = 


' String to read into 
' Line to read from 

! Maximum —— of string 
! Error unwind address 


e+ 
! FUNCTIONAL DESCRIPTION: 


This procedure reads a varying-length string from the spec Teves string line. 


Up to MAX_LENGTH characters, or until end-of-Lline, whichever comes 
first, will be read. The number of characters read is stored in 
the first word of the string. 

i CALLING SEQUENCE: 


STRING.wvt.r = PASSREADV_VARYING (LINE_DSC.mq.r, MAX_LENGTH. rwu.v 
C, ERROR. ja.rJ) 


i FORMAL PARAMETERS: 

LINE_DSC - The string to read from, passed as a class S 
(assumed) descriptor. The length and pointer 
are updated to reflect the unread string. 

MAX_LENGTH - The maximum Length of the string to read. 


ERROR - Optional. If specified, the address to unwind to 
in case of an error. 


i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

The value of the string read. 
i SIDE EFFECTS: 

NONE 

i SIGNALLED ERRORS: 

See PASSREAD_VARYING 


BEGIN 
LOCAL 


Be Pe ee ee SH Se ee 


en SREAD_VARYIN Read a varyin 


trin 16- Sep-1 704: AX-11 Bliss-32 V4.0-74 Page 
2 PASSREADV.. AR INGe Read varying from string 12-8681 884 95:04:83 PASRTL.SR RC IPASREAVAR. B32;1 . 
; 280 0340 PFV: SPASSPFV_FILE_VARIABLE, ! Pascal File Variable 
; 281 4) RESULT i Result value 
; 8¢ 4g ARG_LIST: VECTOR ts, LONG), i Argument list 
; 28 4 PFV-ADDR: VOLATILE, i Enable argument 
; 284 0344 UNWIND ACT: VOLATILE, i Enable argument 
; Hi 0 rf ERROR_ADDR: VOLATILE; i Enable argument 
; 287 6 13 BUILTIN 
; 288 0348 ACTUALCOUNT; ! Count of arguments 
; 289 0349 
; 290 0350 ENABLE 
: 3) 8 2) PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
; 2 0 3§ ‘4 
3; 294 0354 ! Get ERROR parameter, if present. 
3 <99 0355 te 
; 296 B28 
: 297 0357 IF ACTUALCOUNT () GEQU 3 
; 298 0358 THEN ; 
; 444 te ERROR_ADDR = .ERROR; ! Set unwind address 
; 301 0361 ; PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 
; B306 
; 0363 2 ‘+ 
; 304 0364 ' Set up ARG_LIST. 
; we 0365 te 
; 306 0366 
3; 207 0367 ARG_LIST (0) = ! Three arguments 
; 308 0368 2 ARG_LIST at 5 Siri (0); ' Destination string address 
3; 309 0369 2 ARG_LIST $4 = BEV tervsR PFVI; ! address of PFV 
3 310 0370 § ARG_LIST (3) = .MAX_LENGTA; ! Maximum string Length 
eb 0371 
: aig O376 2 '¢ 
s 3135 0373 2 i Call PAS$$DO_READV to do the work, giving it the address of 
; 314 0374 2 ' PASSREAD_VARYING to call. 
3 29 0375 2 ie 
: 316 0376 § 
3 $15 O355 PASSSDO_READV (PFV CPFVSR_PFV], LINE_DSC CO], ARG_LIST, PASSREAD_VARYING); 
3 319 0379 $ RETURN; 
; 320 0380 2 
gs we 0381 1 END; ' End of routine PASSREADV_VARYING 
-EXTRN PAS$$DO_READV 
005C 00000 ENTRY pagene nov. VARYING, Save R2,R3,R4,R6 : 
5E 38 C2 Bao SUBL2 : 
E 4 000 CURL. ERROR ADDR ; 
o% AE 7C 00007 CLRQ Yee nee) ACT ; 
6D 003A «CCF pF OOOA MOVAL : 
03 6C 91 0000F CMPB cab) ; 
04 1F 00012 BLSSU 1 F 
6E 10 AC 00 00014 MOVL ERROR, ERROR_ADDR ; 
08 AE 1c Ag 9 0018 1$ MOVAB FV, PFV_ADDR ; 
OC AE 03 DO 00010 MOVL #3, ARG ‘ct ST ; 


SPS . : ~5 
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PASSREAD_VARYIN Read a varying string 16-Sep- 1386 96: o: 33 Axk-11 Bliss-32 v4.0 Page 9 PA 
1-002 PASSREADV.. AR ING Read varying from string 14- ~Sep- PASRTL.SRC PASREAVAR. fe 231 (4) | 
10 AE 04 AC 00 00021 MOVL STRING, ARG_LIST+4 ; 0368) 
14 AE 1C AE 9E 00026 MOVAB prV. ARG_LIST+ > 0369 | 
18 AE Of Ac 3C 000 MOVZWL LENGTH, ARG List+i2 : 0370) 
34 FFAG CE BE 00 MOVAB PASSREAD. vig RYING, : 0377, 
3 o¢ AE 9E 000 MOVAB ARG_LIST?> : 
56 AE 9 00039 MOVAB PF ,- 9 4 
5 Os AC DO 00030 MOVL INE bs ; 
000000006 00 16 00041 JSB PAS $D0_ CeeRbV ; 
04 00047 RET : 0381 
0000 Beoee 2$: - WORD seve nothing ; 0337 
50 AC DO O004A MOVL (AP), RO : 
50 04 Ad b0 004 OVL 4(RO ; 
D4 AO 9F 0005 PUSHAB ERROR_ADDR : 
D8 AO 9F 0005 PUSHAB UNWIND ACI : 
AO 9F 00058 PUSHAB PFV_ : 
03 DD 00058 PUSHL #3 : 
5E DD 00050 PUSHL SP ; 
7E 04 AC 7D 0005F MOV 4(AP), <(SP) : 
000000006 00 03 FB 00063 CALLS #3, PASS$IO _HANDLER : 
04 0006A RET : 
; Routine Size: 107 bytes, Routine Base: _PASSCODE + 008C 


382 1 
383 1 !<BLF/PAGE> 
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1-002 PASSREADV. Ap ING- Read varying from string 14- =8ep- 19 PASRTL.SRCJPASREAVAR. 8 231 (5) | 
; ie o38s END ! End of module PASSREAD_VARYING | 
: 327 0386 0 ELUDOM | 
| 
; PSECT SUMMARY | 
; Name Bytes Attributes | 
: PASSCODE 247? NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
eee oe ae ee ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 90 21 33 00:00.4 
; COMMAND QUALIFIERS 
Size: 247 code + 0 data bytes 
Run Time: 6 


Elapsed Time: a Fh + 
Lines/CPU Min: 498 
,oneneesSe as 11574 
Y Used: 69 pages 
— ation Complete 


: PL ESEPEMECE SF ELD. SUE TEAL GPT INI LE) SUSTRACE/L ISA. 55 1 PRSREAVAR/OR JOURS PASREAYAR MSRC$:PASREAVAR/UPDATE=(ENH$ : PASREAVAR 
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